home *** CD-ROM | disk | FTP | other *** search
/ SuperHack / SuperHack CD.bin / SCRIPTZ / ZEN.ZIP / zen / aliases.ini next >
INI File  |  1997-03-19  |  14KB  |  218 lines
  1. [Aliases]
  2. n0=tbar /titlebar $me logged onto $server at $atime on $date $+ ... (-(([zen))-)
  3. n1=relog /server $server $port
  4. n2=stats {
  5. n3=  echo 2 ================== Status =================== 
  6. n4=  echo 3 Nick = $me 
  7. n5=  echo 3 Date = $date 
  8. n6=  echo 3 Time = $atime 
  9. n7=  echo 3 Day = $day 
  10. n8=  echo 3 Host = $host 
  11. n9=  echo 3 IP Address = $ip
  12. n10=  if ($server == $null) { echo 3 Not Connected }  
  13. n11=  if ($server != $null) { echo 3 Server = $server $port } 
  14. n12=  echo 3  Online Time = $duration($online) since %timestart 
  15. n13=  if (%away == $null) { echo 3 Away: No }
  16. n14=  if (%away != $null) { echo 3 Away: Yes }
  17. n15=  echo 3 your auto join channel is 4 $+ %aj
  18. n16=  echo 3 your e-mail address is set to 4 $+ %em
  19. n17=  echo 3 auto op is 4 %autoop
  20. n18=  echo 3 normal protection is4 %n.prot
  21. n19=  echo 3 dcc port scanning is4 %dcc.scan
  22. n20=  echo 3 max protection is4 %m.prot
  23. n21=  echo 3 mIRCs protection is %mIRC.p
  24. n22=  echo 2 ================== END =====================
  25. n23=}
  26. n24=chan.s {   
  27. n25=  %stat.p IniTiaTing $bold( oOsAtAnOo's ) Channel Statistics For _- %stat.ch -_ . . .
  28. n26=  %notop = $nopnick(0,%stat.ch) - $vnick(0,%stat.ch)
  29. n27=  if ($nick(0,%stat.ch) == 1) { %chan.1 = iS } | else { %chan.1 = Are } |   if ($opnick(0,%stat.ch) == 1) { %chan.2 = iS } | else { %chan.2 = Are } |   if ($vnick(0,%stat.ch) == 1) { %chan.3 = iS } | else { %chan.3 = Are } |   if ($nonick(0,%stat.ch) == 1) { %chan.4 = iS } | else { %chan.4 = Are }  
  30. n28=  %stat.p There %chan.1 $nick(0,%stat.ch) Members in %stat.ch , $opnick(0,%stat.ch) Of Them %chan.2 Oped ( $+ $milinum($prec2($opnick(0,%stat.ch),$nick(0,%stat.ch))) $+ ) , $vnick(0,%stat.ch) %chan.3 Voiced ( $+ $milinum($prec2($vnick(0,%stat.ch),$nick(0,%stat.ch))) $+ ) And %notop %chan.4 Regular Users. ( $+ $milinum($prec2(%notop,$nick(0,%stat.ch))) $+ )
  31. n29=  %stat.p %chan.away | %stat.p %chan.ircop | stat.s
  32. n30=}
  33. n31=under { return $chr(31) *1 $chr(31) }
  34. n32=writeini { write stats.ini $1 $2 }
  35. n33=milinum { %raw = $1 | set %final $chr(32) | %dev = $len(%raw) - 2 | if (%dev = 1) { set %final %raw | goto cont } | :start | if (%dev <= 1) { set %dev %dev + 2 | set %final $left(%dev,%raw) $+ %final | goto cont } | set %final . $+ $mid(%dev,3,%raw) $+ %final | %dev = %dev - 3 | goto start | :cont | return %final }
  36. n34=stat.i { return $readini $mircdir $+ stats.ini $1 $2 }
  37. n35=bold { return $chr(2) *1 $chr(2) }
  38. n36=colr if (*2 != $null) { return $chr(3) $+ $1 $+ *2 $+ $chr(3) }
  39. n37=prec2 { %prec2 = $1 * 1000 | %prec2 = %prec2 / $2 | return %prec2 $+ % }
  40. n38=stat.s {
  41. n39=  stats.ini | %i = 0 | :start | inc %i | if (%i > $nick(0,%stat.ch)) { stat.c }
  42. n40=  elseif (($stat.i(start,$address($nick(%i,%stat.ch),2)) != $null) && ($stat.i(found,$address($nick(%i,%stat.ch),2)) == $null))  { %lockup = $stat.i(start,$address($nick(%i,%stat.ch),2)) | writeini $mircdir $+ stats.ini found $address($nick(%i,%stat.ch),2) %lockup $nick(%i,%stat.ch) | set %stat.v %stat.v $address($nick(%i,%stat.ch),2) | goto start }
  43. n41=  elseif ($stat.i(found,$address($nick(%i,%stat.ch),2)) != $null) { %lockup = $stat.i(found,$address($nick(%i,%stat.ch),2)) | writeini $mircdir $+ stats.ini found $address($nick(%i,%stat.ch),2) %lockup $nick(%i,%stat.ch) | goto start }
  44. n42=  else { writeini $mircdir $+ stats.ini start $address($nick(%i,%stat.ch),2) $nick(%i,%stat.ch) | goto start }
  45. n43=}
  46. n44=stat.c {
  47. n45=  %stat.p %stat.clone | %s.i = 0 | :start | %redic = $count(%stat.v,$chr(32)) + 1 | inc %s.i | if (%stat.v == $null) { %stat.p The Channel _- %stat.ch -_ iS $bold(Free) Of Clones. | goto end } | elseif (%s.i > %redic) { goto end } 
  48. n46=  else { %showit = $stat.i(found,$gettok(%stat.v,%s.i,32)) | %stat.n = $count(%showit,$chr(32)) + 1 | %u.i = 0 | %stat.u = $count(%showit,$chr(32)) 
  49. n47=    :upgrade | inc %u.i | if (%u.i > %stat.u) { goto final } | elseif (%u.i == %stat.u) { set %stat.f %stat.f $gettok(%showit,%u.i,32) | goto upgrade } | else { set %stat.f %stat.f $gettok(%showit,%u.i,32) $+ $chr(44) | goto upgrade } | :final | set %stat.f %stat.f $bold($under(And)) $gettok(%showit,%stat.n,32) | %stat.p $colr($r(1,15),*«*) %stat.f Are %stat.n Clients Of ( $+ $gettok(%stat.v,%s.i,32) $+ ) | unset %stat.f | goto start 
  50. n48=  }
  51. n49=  :end | %stat.t = $ticks - %stat.t | if ($len(%stat.t) <= 3) { set %stat.t 0 $+ %stat.t } | %stat.p Process: $milinum(%stat.t) Seconds. | %stat.p %stat.chan | unset %redic %stat* | halt
  52. n50=}
  53. n51=topic1 topic $chan (»`╖.╕╕.╖┤»`╖.╕╕.-> -= # =- <-.╕╕.╖┤»`╖.╕╕.╖┤»)
  54. n52=topic2 topic $chan ºñ*~`~*ñº|ºñ*~`~*ñº[ # ]ºñ*~`~*ñº|ºñ*~`~*ñº
  55. n53=topic3 topic $chan _╕,.╗¼=µñ║▓░`»// # \\»`░▓║ñµ=¼½,╕_
  56. n54=topic4 topic $chan (»`╖._ (»`╖._ (»`╖._-=- # -=-_.╖`»)_.╖`»)_.╖`»)
  57. n55=topic5 topic $chan ░`░ñ°,╕╕╕,°ñ░`░`░ñ°,╕╕╕,°ñ░` # ░`░ñ°,╕╕╕,°ñ░`░`░ñ°,╕╕╕,°ñ░`░`░ñ°,╕╕╕,°ñ░`░
  58. n56=nprotect {
  59. n57=  if (%t1 == normal) { /echo 10 "normal" flood protection was already active }
  60. n58=  elseif (%t1 == high) { noprotect | /.timer102 1 2 /nprotect }
  61. n59=  elseif (%t1 == mIRC's) { noprotect | /.timer102 1 2 /nprotect }
  62. n60=  else {
  63. n61=    .set %t1 normal
  64. n62=    .enable #normalprotection
  65. n63=    echo 10 "Normal" flood protection has been activated | /set %n.prot on
  66. n64=    .timer 1 20 /f5
  67. n65=  }
  68. n66=}
  69. n67=mprotect {
  70. n68=  if (%t1 == high) { /echo 10 "high" flood protection was already active }
  71. n69=  elseif (%t1 == normal) { noprotect | /.timer102 1 2 /hprotect }
  72. n70=  else {
  73. n71=    .set %t1 high
  74. n72=    .enable #protection
  75. n73=    echo 10 "High" flood protection has been activated | /set %m.prot on
  76. n74=    .timer 1 20 /f5
  77. n75=  }
  78. n76=}
  79. n77=noprotect {
  80. n78=  if (%t1 == none) || (%t1 == $null) { /echo 14 No flood protection was active }
  81. n79=  elseif (%t1 == normal) { /echo 10 "Normal" flood protection was deactivated | .set %t1 none | .disable #normalprotection | /set %n.prot off }
  82. n80=  elseif (%t1 == high) { /echo 10 "High" flood protection was deactivated | .set %t1 none | .disable #protection |  /set %m.prot off }
  83. n81=  .timer 1 20 /f5
  84. n82=}
  85. n83=dns echo 1 - | dns *1
  86. n84=clock {
  87. n85=  .timer17 0 1 /titlebar %logo $chr(36) $+ atime on $chr(36) $+ day $chr(36) $+ adate
  88. n86=}
  89. n87=longip  /echo 3 ***Converted $$1 to $longip($$1)
  90. n88=awayon { 
  91. n89=  .enable #away 
  92. n90=  set %away  $atime on $day $date 
  93. n91=  set %reason $$?="Enter your away message:" 
  94. n92=  set %msg 0 | .timer12 0 600 ame has been away since %away  Message:  %reason   /msg me for details on how to page me. %logo | /ame has been away since %away  Message:  %reason   /msg me for details on how to page me.%logo | /set %awsecs 0 | /.timer110 0 1 /inc %awsecs
  95. n93=  if (%autoa == off) { .timer134 off }
  96. n94=}
  97. n95=awback { 
  98. n96=  if (%clock == off) { clock }
  99. n97=  if (%clock == on) { away }
  100. n98=  away 
  101. n99=  .disable #away 
  102. n100=  rlevel 2 | rlevel 3 | rlevel 4 | .timer12 off | .timer109 off | .timer110 off | .timer111 off
  103. n101=  ame is back!  I left at %away and have been gone for $duration(%awsecs) Message:  %reason 
  104. n102=  if (%autoa == off) { .timer134 0 240 /idlecheck }  
  105. n103=  clear 
  106. n104=  echo 6 You were away for $duration(%awsecs) Message:  %reason  Since: %away  | /unset %away | /unset %reason | /unset %awsecs    
  107. n105=  .notice $me %msg people msged you when you were away.   
  108. n106=  {
  109. n107=    if (0 isin %msg) {  
  110. n108=      echo 2 You have no away messages
  111. n109=    }
  112. n110=    if (0 !isin %msg) {
  113. n111=      write $mircdir $+ away.txt /echo 2 End of All Messages
  114. n112=      echo 2 Listing away messages... 
  115. n113=      .timer58 1 60 /.remove $mircdir $+ away.txt    
  116. n114=      play -c $mircdir $+ away.txt  
  117. n115=    }
  118. n116=  }
  119. n117=  unset %msg
  120. n118=}
  121. n119=autoa /set %reason  Auto-away Activated. Idle for $duration(%auto) %logo | /away %reason | /if (%autoa == off) { .timer134 off } | /echo 4 -a Auto-away Activated. Idle for $duration(%auto) | /.enable #away | /floodpro | /set %away  $atime on $day $adate | /set %msg 0 | /.timer12 0 1200 /ame has been away since %away  Message:  %reason   /msg me for details on how to page me. | /ame has been away since %away  Message:  %reason   /msg me for details on how to page me. %logo | /set %awsecs 0 | /.timer110 0 1 /inc %awsecs
  122. n120=echo //echo 2 -s [zen]  $+ $$1 $+ *2
  123. n121=email /say my email is 4 $+ %em
  124. n122=/join //set %join *1 | set %join $replace(%join,$chr(32),$chr(160)) | join %join | unset %join | if (# !isin $parm1) echo 4(Syntax: /join #testing spaces are fun!) 
  125. n123=rcon /server $server $port
  126. n124=; ---------------------Mass Commands:
  127. n125=Massk { set %kick.var 1 | :next | if ($nick(%kick.var,$$1) == $null) { goto done }  if ($nick(%kick.var,$$1) == $me) { inc %kick.var 1 | goto next } | kick $$1 $nick(%kick.var,$$1) Mass Kick of $$1 | inc %kick.var 1 | goto next | :done }
  128. n126=Massb { set %b 1 | :next | if ($nick(%b,#) == $null) echo 3 *** Mass Kick Complete | if (nick(%b,#) == $me) { inc %k 1 | goto next } | ban $nick(%k,#) 3 | kick # $nick(%k,#) 2[zen]3 Mass Kick/Ban of # | inc %b 1 | goto next }
  129. n127=Masso { if ($me !isop #) echo 4 *** You must have ops to do that... | set %o 0 | set %j 0 set %nicks | :next | inc %o 1 | %nick = $nopnick(%o,#) | if (%nick == $null) { mode # +oooo %nicks | halt } | if (%nick == $me) goto next | set %nicks %nicks %nick | inc %j 1 | if (%j == 4) { mode # +oooo %nicks | set %j 0 | set %nicks } | goto next }
  130. n128=Massdo { if ($me !isop #) echo 4 *** You must have ops to do that... | set %do 0 | set %j1 0 set %nicks | :next | inc %do 1 | %nick = $nopnick(%o,#) | if (%nick == $null) { mode # -oooo %nicks | halt } | if (%nick == $me) goto next | set %nicks %nicks %nick | inc %j1 1 | if (%j == 4) { mode # -oooo %nicks | set %j 0 | set %nicks } | goto next }
  131. n129=Massi { set %i $nick(0,#) | :next | if ($nick(%i,#) != $me) invite $nick(%i,#) $1 | dec %i | if %i > 1 goto next | halt }
  132. n130=tsunami1 { 
  133. n131=  msg $$1 $str(100,^) 
  134. n132=  notice $$1 $str(100,^) 
  135. n133=  describe $$1 $str(100,^) 
  136. n134=}
  137. n135=tsunami2 {
  138. n136=  msg $$1 ╕.╖░╖.╕.╖░╖.╕.╖░╖.╕.╖░╖.╕.╖░╖.╕.╖░╖.╕.╖░╖.╕.╖░╖.╕.╖░╖.╕.╖░╖.╕.╖░╖.╕.╖░╖.╕.╖░╖.╕.╖░╖.╕.╖░╖.╕.╖░╖.╕.╖░╖.╕.╖░╖.╕.╖░╖.╕.╖░╖.╕.╖░╖.╕.╖░╖.╕.╖░╖.╕.╖░╖.╕.╖░╖.╕.╖░╖.╕.╖░╖.╕.╖░╖.╕.╖░╖.╕.╖░╖.╕.╖░╖.╕.╖░╖.╕.╖░╖.╕.╖░╖.╕.╖░╖.╕.╖░╖.╕.╖░╖.╕.╖░╖.╕.╖░╖.╕.╖░╖.╕.╖░╖.╕.╖░╖.╕.╖░╖.╕.╖░╖.╕.╖░╖.╕.╖░╖.╕.╖░╖.╕.╖░╖.╕.╖░╖.╕.╖░╖.╕.╖░╖.╕.╖░╖.╕.╖░╖.╕.╖░╖.╕.╖░╖.╕.╖░╖.╕.╖░╖.╕.╖░╖.╕.╖░╖.╕.╖░╖.╕.╖░╖.╕.╖░╖.╕.╖░╖.╕.╖░╖.╕.╖░╖.╕.╖░╖.╕.╖░╖.╕.╖░╖.╕.╖░╖.╕.╖░╖.╕.╖░╖.╕
  139. n137=  msg $$1 ╕.╖░╖.╕.╖░╖.╕.╖░╖.╕.╖░╖.╕.╖░╖.╕.╖░╖.╕.╖░╖.╕.╖░╖.╕.╖░╖.╕.╖░╖.╕.╖░╖.╕.╖░╖.╕.╖░╖.╕.╖░╖.╕.╖░╖.╕.╖░╖.╕.╖░╖.╕.╖░╖.╕.╖░╖.╕.╖░╖.╕.╖░╖.╕.╖░╖.╕.╖░╖.╕.╖░╖.╕.╖░╖.╕.╖░╖.╕.╖░╖.╕.╖░╖.╕.╖░╖.╕.╖░╖.╕.╖░╖.╕.╖░╖.╕.╖░╖.╕.╖░╖.╕.╖░╖.╕.╖░╖.╕.╖░╖.╕.╖░╖.╕.╖░╖.╕.╖░╖.╕.╖░╖.╕.╖░╖.╕.╖░╖.╕.╖░╖.╕.╖░╖.╕.╖░╖.╕.╖░╖.╕.╖░╖.╕.╖░╖.╕.╖░╖.╕.╖░╖.╕.╖░╖.╕.╖░╖.╕.╖░╖.╕.╖░╖.╕.╖░╖.╕.╖░╖.╕.╖░╖.╕.╖░╖.╕.╖░╖.╕.╖░╖.╕.╖░╖.╕.╖░╖.╕.╖░╖.╕.╖░╖.╕.╖░╖.╕.╖░╖.╕.╖░╖.╕.╖░╖.╕.╖░╖.╕.╖░╖.╕
  140. n138=  msg $$1 ╕.╖░╖.╕.╖░╖.╕.╖░╖.╕.╖░╖.╕.╖░╖.╕.╖░╖.╕.╖░╖.╕.╖░╖.╕.╖░╖.╕.╖░╖.╕.╖░╖.╕.╖░╖.╕.╖░╖.╕.╖░╖.╕.╖░╖.╕.╖░╖.╕.╖░╖.╕.╖░╖.╕.╖░╖.╕.╖░╖.╕.╖░╖.╕.╖░╖.╕.╖░╖.╕.╖░╖.╕.╖░╖.╕.╖░╖.╕.╖░╖.╕.╖░╖.╕.╖░╖.╕.╖░╖.╕.╖░╖.╕.╖░╖.╕.╖░╖.╕.╖░╖.╕.╖░╖.╕.╖░╖.╕.╖░╖.╕.╖░╖.╕.╖░╖.╕.╖░╖.╕.╖░╖.╕.╖░╖.╕.╖░╖.╕.╖░╖.╕.╖░╖.╕.╖░╖.╕.╖░╖.╕.╖░╖.╕.╖░╖.╕.╖░╖.╕.╖░╖.╕.╖░╖.╕.╖░╖.╕.╖░╖.╕.╖░╖.╕.╖░╖.╕.╖░╖.╕.╖░╖.╕.╖░╖.╕.╖░╖.╕.╖░╖.╕.╖░╖.╕.╖░╖.╕.╖░╖.╕.╖░╖.╕.╖░╖.╕.╖░╖.╕.╖░╖.╕.╖░╖.╕.╖░╖.╕.╖░╖.╕
  141. n139=}
  142. n140=tsunami3 { 
  143. n141=  msg $$1 $str(20,$chr(40)) $+ $str(20,$chr(41)) $+ $str(20,$chr(40)) $+ $str(20,$chr(41)) $+ $str(20,$chr(40)) $+ $str(20,$chr(41)) $+ $str(20,$chr(40)) $+ $str(20,$chr(41)) $+ $str(20,$chr(40)) $+ $str(20,$chr(41)) $+ $str(20,$chr(40)) 
  144. n142=  msg $$1 $str(20,$chr(40)) $+ $str(20,$chr(41)) $+ $str(20,$chr(40)) $+ $str(20,$chr(41)) $+ $str(20,$chr(40)) $+ $str(20,$chr(41)) $+ $str(20,$chr(40)) $+ $str(20,$chr(41)) $+ $str(20,$chr(40)) $+ $str(20,$chr(41)) $+ $str(20,$chr(40)) 
  145. n143=  msg $$1 $str(20,$chr(40)) $+ $str(20,$chr(41)) $+ $str(20,$chr(40)) $+ $str(20,$chr(41)) $+ $str(20,$chr(40)) $+ $str(20,$chr(41)) $+ $str(20,$chr(40)) $+ $str(20,$chr(41)) $+ $str(20,$chr(40)) $+ $str(20,$chr(41)) $+ $str(20,$chr(40)) 
  146. n144=}
  147. n145=tsunami4 {
  148. n146=  msg $$1 $str(50,*^*_)
  149. n147=  msg $$1 $str(50,*^*_)
  150. n148=  msg $$1 $str(50,*^*_)
  151. n149=}
  152. n150=tsunami5 {
  153. n151=  set %loop.v 1
  154. n152=  :next
  155. n153=  if (%loop.v >= 15) { goto done }
  156. n154=  set %tsu.v $chr(3) $+ $r(1,9) $+ ╕ $+ $chr(3) $+ $chr(3) $+ $r(1,9) $+ . $+ $chr(3) $+ $chr(3) $+ $r(1,9) $+ ╖ $+ $chr(3) $+ $chr(3) $+ $r(1,9) $+ ░ $+ $chr(3) $+ $chr(3) $+ $r(1,9) $+ ╖ $+ $chr(3) $+ $chr(3) $+ $r(1,9) $+ . $+ $chr(3)
  157. n155=  set %tsu.flood %tsu.flood %tsu.v
  158. n156=  inc %loop.v 1
  159. n157=  goto next
  160. n158=  :done
  161. n159=  %tsu.flood = $remove(%tsu.flood,$chr(32))
  162. n160=  msg $$1 %tsu.flood
  163. n161=  msg $$1 %tsu.flood
  164. n162=  msg $$1 %tsu.flood
  165. n163=  unset %tsu.flood
  166. n164=}
  167. n165=dccflood {
  168. n166=  raw -q privmsg $$1 : $+ $chr(1) $+ DCC CHAT CHAT $longip($ip) $r(1024,2000) $+ $chr(1)
  169. n167=}
  170. n168=dccflood1 {
  171. n169=  raw -q privmsg $$1 : $+ $chr(1) $+ DCC CHAT CHAT $longip($ip) $r(1024,2000) $+ $chr(1)
  172. n170=}
  173. n171=dccflood2 {
  174. n172=  raw -q privmsg $$1 : $+ $chr(1) $+ DCC SEND virus $+ $r(1,9) $+ $r(1,9) $+ $r(1,9) $+ .com $longip($ip) $r(1024,2000) $r(2000,7000) $+ $chr(1)
  175. n173=}
  176. n174=dccbomb {
  177. n175=  timer 50 2 /dccflood1 $$1
  178. n176=  timer 50 2 /dccflood2 $$1
  179. n177=}
  180. n178=mflood {
  181. n179=  .ctcp $$1 version
  182. n180=  .ctcp $$1 clientinfo
  183. n181=  .ctcp $$1 time
  184. n182=  .ctcp $$1 userinfo
  185. n183=}
  186. n184=takeover {
  187. n185=  if ($$1 == off) {
  188. n186=    mode %takechan -stimk -]Kg3Jdie2p[-
  189. n187=    mode %takechan -lb -5000 *!*@*
  190. n188=    .disable #takeover
  191. n189=    .unset %takechan
  192. n190=    .unset %checknick
  193. n191=    halt
  194. n192=  }
  195. n193=  if ($me isop $$1) {
  196. n194=    .enable #takeover
  197. n195=    set %takechan $$1
  198. n196=    mode %takechan +stimk -]Kg3Jdie2p[-
  199. n197=    mode %takechan +lb -5000 *!*@*
  200. n198=    set %checknick 1
  201. n199=    :next
  202. n200=    set %nick1 $nick(%checknick,%takechan)
  203. n201=    if %nick == $null goto done
  204. n202=    if (%nick == $me) {
  205. n203=      inc %checknick 1 
  206. n204=      goto next
  207. n205=    } 
  208. n206=    kick %takechan %nick Thank you for visiting %takechan , watch your step on the way out
  209. n207=    inc %checknick 1
  210. n208=    goto next
  211. n209=    :done
  212. n210=    halt
  213. n211=  }
  214. n212=  echo 2 You need ops in $$1 to take it over.
  215. n213=}
  216. n214=modes { mode # %modes | echo 3 *** your modes have been set on # }
  217. n215=wallop /onotice # 2[zen] [WallOps/ $+ # $+ ] *1 2[zen]
  218.